﻿Imports System.Text.RegularExpressions

Public Class frm_Main

    Private Sub frm_Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub DsjlToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DsjlToolStripMenuItem.Click

    End Sub


    Private Sub DSVLoadnetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DSVLoadnetToolStripMenuItem.Click

    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        Debug.Print(e.Node.Text)
    End Sub

    Private Sub ОПрограммеToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОПрограммеToolStripMenuItem.Click
        frm_About.ShowDialog()
    End Sub


    
    Private Sub OptionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionsToolStripMenuItem.Click

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles wb_Web.DocumentCompleted
        Dim a As New Regex("(?<Protocol>\w+):\/\/dsv\.(?<Domain>[\w@][\w.:@]+)\/?[\w\.?=%&=\-@/$,]*")

        Dim aa() As String = (a.GetGroupNames())
        Dim aaa As String
        For Each aaa In aa
            Debug.Print(aaa)
        Next
        Dim asd As String() = a.Split(wb_Web.DocumentText)
        Dim ma As MatchCollection = a.Matches(wb_Web.DocumentText)
        Dim asdw As Group

        TextBox1.Text = ""

        For Each asdw In ma
            Debug.Print(asdw.Value)
            TextBox1.Text += asdw.Value + vbCrLf

        Next
   
    End Sub
End Class
